home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Menu4.dxr / 00003_PRINT gathering.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.4 KB  |  52 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   set vSomeDone to checkActivation()
  5.   if vSomeDone then
  6.     getPrintData()
  7.     print(the text of member "menu4 field")
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getIslandPrinting
  14.   set vSomeDone to checkActivation()
  15.   if vSomeDone then
  16.     getPrintData()
  17.   else
  18.     set vTempText to "No" && QUOTE & "Using Decision-Making Strategies" & QUOTE && "activities were completed." & RETURN
  19.     fillaField(vTempText)
  20.   end if
  21. end
  22.  
  23. on checkActivation
  24.   set vDone to 0
  25.   repeat with thisArea in [#review, #plan, #eval]
  26.     if activationOn(gMasterData, thisArea) then
  27.       set vDone to 1
  28.       activate(gMasterData)
  29.       exit repeat
  30.     end if
  31.   end repeat
  32.   return vDone
  33. end
  34.  
  35. on getPrintData
  36.   set vTempText to EMPTY
  37.   put "Part 4:" && QUOTE & "Using Decision-Making Strategies" & QUOTE && "activities" & RETURN & "----------------------------------------------------------" & RETURN & RETURN after vTempText
  38.   repeat with thisArea in [#review, #plan, #eval]
  39.     if activationOn(gMasterData, thisArea) then
  40.       set vField to string(thisArea) && "field"
  41.       put the text of member vField after vTempText
  42.     end if
  43.   end repeat
  44.   fillaField(vTempText)
  45. end
  46.  
  47. on fillaField thisText
  48.   set vThisField to string(the userArea of gMasterData) && "field"
  49.   set the text of member vThisField to EMPTY
  50.   set the text of member vThisField to thisText
  51. end
  52.